home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / to_integer.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  423 b   |  27 lines
  1.  
  2. **
  3. ** to_integer:INTEGER
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. to_integer
  9.         move.l  #0,d0
  10.         move.l  ($8,a1),d1
  11.         sub.l   #1,d1
  12.         move.l  #'0',d2
  13.         move.l  #0,d3
  14.         move.l  ($C,a1),a2
  15.  
  16. .loop   move.l  d0,d4
  17.         lsl.l   #3,d0
  18.         add.l   d4,d0
  19.         add.l   d4,d0
  20.         move.b  (a2)+,d3
  21.         sub.l   d2,d3
  22.         add.l   d3,d0
  23.         dbra    d1,.loop
  24.  
  25. .end    rts
  26.  
  27.